VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ErrorNode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private vm_pInnerError_obj As ErrorNode
Private vm_pDescription_str As String
Private vm_pFaultLine_int As Integer
Private vm_pInternalErrorObject_obj As errObject
Private vm_pFaultMethod As ErrorMethod
Private vm_pFaultClass As ErrorClass
Private vm_pCallStack As String

Public Property Get innerError() As ErrorNode
Set innerError = vm_pInnerError_obj
End Property

Friend Property Set innerError(ByVal pr_NewError_obj As ErrorNode)
Set vm_pInnerError_obj = pr_NewError_obj
End Property


Public Property Get stackTrace() As String
stackTrace = vm_pCallStack
End Property

Friend Property Let stackTrace(ByVal pr_NewItem As String)
vm_pCallStack = pr_NewItem
End Property


Public Property Get description() As String
description = vm_pDescription_str
End Property

Public Property Let description(ByVal pr_NewDescription_str As String)
vm_pDescription_str = pr_NewDescription_str
End Property



Public Property Get faultLine() As Long
faultLine = vm_pFaultLine_int
End Property

Public Property Let faultLine(ByVal pr_NewLine_int As Long)
vm_pFaultLine_int = pr_NewLine_int
End Property


Public Property Get faultMethod() As ErrorMethod
Set faultMethod = vm_pFaultMethod
End Property

Public Property Set faultMethod(ByVal pr_NewMethod As ErrorMethod)
Set vm_pFaultMethod = pr_NewMethod
End Property


Public Property Get faultClass() As ErrorClass
Set faultClass = vm_pFaultClass
End Property

Public Property Set faultClass(ByVal pr_NewClass As ErrorClass)
Set vm_pFaultClass = pr_NewClass
End Property


Public Property Get internalErrorObject() As errObject
Set internalErrorObject = vm_pInternalErrorObject_obj
End Property

Public Property Set internalErrorObject(ByVal pr_NewErrObject_obj As errObject)
Set vm_pInternalErrorObject_obj = pr_NewErrObject_obj
End Property

Private Sub Class_Initialize()
Set vm_pFaultClass = New ErrorClass
Set vm_pFaultMethod = New ErrorMethod
End Sub

Private Sub Class_Terminate()
Set vm_pFaultClass = Nothing
Set vm_pFaultMethod = Nothing
Set vm_pInnerError_obj = Nothing
Set vm_pInternalErrorObject_obj = Nothing
End Sub
